projects / emacs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f71dbb3)
Respect <html dir=auto>
authorLars Ingebrigtsen <larsi@gnus.org>
Mon, 29 Feb 2016 23:48:36 +0000 (10:48 +1100)
committerLars Ingebrigtsen <larsi@gnus.org>
Mon, 29 Feb 2016 23:48:36 +0000 (10:48 +1100)
* lisp/net/shr.el (shr-tag-html): Respect the "auto"
directional HTML setting.

lisp/net/shr.el patch | blob | history

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index fc6fca7060e129d57bb0657acd243a563ecf069c..ab04b9a065aa4e7ebe393f59910600925d295224 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1178,7 +1178,9 @@ ones, in case fg and bg are nil."
      ((equal dir "ltr")
       (setq bidi-paragraph-direction 'left-to-right))
      ((equal dir "rtl")
-      (setq bidi-paragraph-direction 'right-to-left))))
+      (setq bidi-paragraph-direction 'right-to-left))
+     ((equal dir "auto")
+      (setq bidi-paragraph-direction nil))))
   (shr-generic dom))
 
 (defun shr-tag-body (dom)
Unnamed repository; edit this file 'description' to name the repository.